home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / Afc / Displayer_Example1.e < prev    next >
Encoding:
Text File  |  1997-09-09  |  1.5 KB  |  70 lines
  1. /*
  2.  
  3.   $VER: Displayer Example 1 - (C)Amiga Foundation Classes
  4.  
  5.   Written By: Andrea Galimberti
  6.  
  7.   This code is Public Domain
  8.  
  9. */
  10.  
  11.  
  12. MODULE 'AFC/displayer','afc/explain_exception',
  13.        'graphics/modeid'
  14.  
  15.  
  16. PROC main() HANDLE
  17.   DEF myview=NIL:PTR TO displayer
  18.   DEF vp1, vp2
  19.   DEF rp1=NIL, rp2=NIL
  20.  
  21.   NEW myview.displayer()  -> create the OBJECT
  22.  
  23.   myview.add([VPORT_TOP,0,             -> add viewports
  24.               VPORT_LEFT,0,
  25.               VPORT_WIDTH,640,
  26.               VPORT_HEIGHT,128,
  27.               VPORT_DEPTH,3,
  28.               VPORT_MODE,HIRES_KEY,
  29.               NIL])
  30.  
  31.   myview.add([VPORT_TOP,140,
  32.               VPORT_LEFT,0,
  33.               VPORT_WIDTH,320,
  34.               VPORT_HEIGHT,100,
  35.               VPORT_DEPTH,3,
  36.               VPORT_MODE,LORES_KEY,
  37.               NIL])
  38.  
  39.   myview.setup(DEFAULT_MONITOR_ID)   -> build system structures
  40.  
  41.   myview.show()   -> show NEW view (automatically stores the old view)
  42.  
  43.   rp1:=myview.rastport(0)  -> get PTR TO rastport AND viewport system
  44.   rp2:=myview.rastport(1)  -> structures OF the two viewports.
  45.   vp1:=myview.viewport(0)  -> Indices refer TO the order in which the two
  46.   vp2:=myview.viewport(1)  -> viewports have been added.
  47.  
  48.   SetRast(rp1,3)
  49.   SetRast(rp2,4)
  50.  
  51.   SetRGB4(vp1,2,15,15,15)
  52.   SetAPen(rp1,2)
  53.   Move(rp1,10,10)
  54.   Text(rp1,'First (Hires) ViewPort',22)
  55.   SetRGB4(vp2,2,0,0,15)
  56.   SetAPen(rp2,2)
  57.   Move(rp2,10,10)
  58.   Text(rp2,'Second (Lowres) ViewPort',24)
  59.  
  60.   REPEAT
  61.     Delay(5)
  62.   UNTIL Mouse()
  63.   myview.showOldView()  -> restore old view
  64.  
  65. EXCEPT DO
  66.   END myview
  67.   explain_exception()
  68. ENDPROC
  69.  
  70.